home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / Compiler / Builtins / Boolean.m < prev    next >
Text File  |  1990-08-16  |  2KB  |  68 lines
  1. % 
  2. % @(#)Boolean.m    1.2  6/29/87
  3. %
  4. export _BooleanObject to "Builtins"
  5.  
  6. const _BooleanObject == immutable object _BooleanObject
  7.   export getSignature, makeTrue, makeFalse
  8.   
  9.   const BooleanType == immutable type BooleanType
  10.     function > [o : Boolean] -> [r : Boolean]
  11.     function >=[o : Boolean] -> [r : Boolean]
  12.     function < [o : Boolean] -> [r : Boolean]
  13.     function <=[o : Boolean] -> [r : Boolean]
  14.     function = [o : Boolean] -> [r : Boolean]
  15.     function !=[o : Boolean] -> [r : Boolean]
  16.     function & [o : Boolean] -> [r : Boolean]
  17.     function | [o : Boolean] -> [r : Boolean]
  18.     function ! -> [r : Boolean]
  19.     function asString -> [s : String]
  20.       % s <- either "true" or "false"
  21.   end BooleanType
  22.   function getSignature -> [result : Signature]
  23.     result <- BooleanType
  24.   end getSignature
  25.   function create [data : Integer] -> [result : BooleanType]
  26.     result <- immutable object aBoolean
  27.       export >, >=, <, <=, =, !=, &, |, !, asString
  28.  
  29.       function > [o : Boolean] -> [r : Boolean]
  30.     primitive 003 [r] <- [o]
  31.       end >
  32.       function >= [o : Boolean] -> [r : Boolean]
  33.     primitive 103 [r] <- [o]
  34.       end >=
  35.       function < [o : Boolean] -> [r : Boolean]
  36.     primitive 203 [r] <- [o]
  37.       end <
  38.       function <= [o : Boolean] -> [r : Boolean]
  39.     primitive 303 [r] <- [o]
  40.       end <=
  41.       function = [o : Boolean] -> [r : Boolean]
  42.     primitive 403 [r] <- [o]
  43.       end =
  44.       function != [o : Boolean] -> [r : Boolean]
  45.     primitive 503 [r] <- [o]
  46.       end !=
  47.       function & [o : Boolean] -> [r : Boolean]
  48.     primitive 603 [r] <- [o]
  49.       end &
  50.       function | [o : Boolean] -> [r : Boolean]
  51.     primitive 703 [r] <- [o]
  52.       end |
  53.       function ! -> [r : Boolean]
  54.     primitive 803 [r] <- []
  55.       end !
  56.       function asString -> [r : String]
  57.     primitive 903 [r] <- []
  58.       end asString
  59.     end aBoolean
  60.   end create
  61.   function makeTrue -> [result : BooleanType]
  62.     result <- true
  63.   end makeTrue
  64.   function makeFalse -> [result : BooleanType]
  65.     result <- false
  66.   end makeFalse
  67. end _BooleanObject
  68.